
helper <- function(x){
  foo <- rep(NA,length(x))
  for(i in 1:(length(x))){
    foo[[i]] <- paste(substitute(x),"[[",i,"]]",sep="")
  }
  foo <- paste(foo,collapse=",")
  return(foo)
}
